my $name = split /_/, $file;