$ perl -Mstrict -Mwarnings -e '
    use Data::Dumper;
    my %x = (a => 1);
    print Dumper %x;
'
$VAR1 = 'a';
$VAR2 = 1;

##</code><code>##

$ perl -Mstrict -Mwarnings -e '
    use Data::Dumper;
    my %x = (a => 1);
    print Dumper \%x;
'
$VAR1 = {
          'a' => 1
        };

##</code><code>##

sub get_transactions {
    my ($class, $transaction_id) = @_;
    ...
}

##</code><code>##

    ...
    my $transactions_id = shift;
    print "$transactions_id\n";
    ...
    my $ar = $dbh->selectall_arrayref( $sql, undef, $transactions_id );
    print Dumper $ar;
    ...