my $year = substr $array[13], 22, 8;