my %DupKiller;

foreach $f(@filelist){
   ###Do Your Processing Here
   $DupKiller{$f} = 1;
}

my @store = keys(%DupKiller);