Select Code to Download

my($foo, $bar, $baz, $quux) = split /\s+/, $str;

# Change this line if the number of entries changes.
use constant ENTRIES_PER_LINE => 4;
...
  my($foo, $bar, $baz, $quux) = @entries;
  # continue with your code
}

...
my %template_value_for;
my @fields = qw(foo bar baz quux);
@template_value_for{@fields} = @entries;