1234567891011121314151617
#!/usr/bin/perluse strict;use warnings;use Data::Dumper;use File::Basename;my @files = ( 'C:/files/abc.txt', 'C:/files/def.txt', 'C:/files/ghi.txt',);@files = map { basename $_ } @files;die Dumper \@files;