my @files = qw(
  [%libprefix%]foo[%libsuffix%]
  Foo[%exesuffix%]
  foo[%batsuffix%]
);

##</code><code>##

my %params = (
  unix => {
    libprefix => 'lib',
    exesuffix => '',
    batsuffix => '',
  },
  aix => {
    libsuffix => '.a',
  },
  hp => {
    libsuffix => '.sl',
  },
  linux => {
    libsuffix => '.so',
  },
  windows => {
    libprefix => '',
    libsuffix => '.dll',
    exesuffix => '.exe',
    batsuffix => '.bat',
  },
);
my %real_param;
if ($platform =~ /windows/i) { #including Win/ia32, Win/ia64, Win/x86-64
  %real_param = %{$param{windows}};
} elsif ($platform eq 'AIX') {
  %real_param = (%{$param{unix}}, %{$param{aix}});
} # ...