my $length_arr=length($arr[2]);
my $fname=sub($arr[2],0,($length_arr-4));
print $fname;