use Data::Dumper; # <-better put this at the beginning of your script, but works here too

print Dumper(\@starting_deck);