To add to what's already been said (fix your qw()), this can be fixed easily by pushing the 1 onto the array and then returning only the array.

Something like:

sub test {
  my @array = qw{ fish chicken pork }; # I assume it's not this simple
+ in your real script
  push @array, 1;
  return @array;
}
[download]