Select Code to Download

my @fields = split(/;/);
my $obj = SomeClass->new(this => "$fields[0]",
             that => "$fields[1]",
             the_other => "$fields[2]",
            );

my @fields = qw/this, that, the_other/;
my %argsHash = ???;
my $obj = SomeClass->new(%argshash);