use File::Basename; my @file = qw(/path/to/file1 /path/to/file2.sql); print basename($_),"\n" for @file;