>perl -wMstrict -le
"use Data::Dump;
 ;;
 my $self = { foo => 'bar' };
 my @standings = qw(1 2 3 4);
 ;;
 @$self{ qw(wins places shows losses) } = @standings;
 ;;
 dd $self;
"
{ foo => "bar", losses => 4, places => 2, shows => 3, wins => 1 }