Shell Programming and Scripting

@a=<STDIN>;
foreach $i (@a){
   @element= $i;
   if (@element[4]=~/2/){
    $abc+=@element[4];
    
   }

 

 use strict;
use warnings;
use Data::Dumper;
open FH, "<new" or die "Can't Open $!";
my @array1;
my %hash;
<FH>;
while(<FH>)
{
  my @array=split(' ',$_);
  push(@array1,$array[4]);
}
foreach(@array1)
{
  $hash{$_}++;
}

foreach my $key (keys%hash) {
       print " $key => $hash{$key} times\n";
   }

open FH, "<inp" or die "Can't open file : $!\n";
my @data=<FH>;
my @result;
my @count;
foreach (@data )
{
    push(@result,split);
}
for ( my $i=4; $i <= $#result; $i=$i+5 )
{
    push(@count,$result[$i]);
}

my %count_hash;
shift @count; #to remove the e from the array
foreach my $word (@count)
{
       $count_hash{$word}=$count_hash{$word}+1;
}

foreach my $word (keys %count_hash)
{
            print $word," Comes for ",$count_hash{$word}," times\n";
}

6 Comes for 1 times
4 Comes for 1 times
3 Comes for 1 times
2 Comes for 2 times

                open FH,"sum" or die $!; //Open the file 'sum'.
                my %sum;
                my @lines;
                my $key;
                my $val;
                while(<FH>)//Read lines from the opened file.
                {
                      @lines=split(' ',$_);
                      $sum{$lines[4]}=$sum{$lines[4]}+1;//Forming Hash

                }
                while(($key,$val)=each(%sum))
                {
                    print "$key - $val times \n";//Printing the keys and values in hash
                }

perl -lane '$A{(split //)[-1]}++; END {while (($k,$v) = each(%A)) { print "$k $v times" if(int($k)); } }' file