use Modern::Perl;
use autodie;
open my $file1, '<', './file1.txt';
<$file1>;
my $secondline = <$file1>;
my $fivefirstfile1= substr($secondline, 0, 5);