Select Code to Download

sub first_sub {
    my ($args) = @_;
...
    ETC => 'etc',
   },
);

my @temp = @{$args}{qw(ARG1 ARG2 ARG3)};

my @temp;
push @temp, $args->{ARG1};
push @temp, $args->{ARG2};
push @temp, $args->{ARG3};