my %destinations = qw( file1 sysbacks file2 alpha file3 gamma/blue file4 gamma/green file5 gamma/green ); #later my $target = "$destinations{$filename}/$filename";