my $fileName = "blah.csv";
my @array = split '\.', $fileName;
print $array[-1],"\n";