#!/usr/bin/perl use 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;