# read in times open MYFILE, "<$dir/structs/times"; my @temptimes = ; close(MYFILE); print "$#temptimes\n"; my @strtimes; for (my $i = 2;$i <= $#temptimes;$i++){ if ($temptimes[$i] =~ m/(\d+.\d+)/){ print "$1\n"; } }