for my $a () { substr($a,-7)=" "; # <<< here