>perl -wMstrict -le
"use Data::Dumper;
 ;;
 my %hash;
 ;;
 push @{ $hash{'one'} }, qw(fee fie foe fum), undef, 'oops';
 print Dumper \%hash;
 ;;
 my $defined_pushed = grep defined, @{ $hash{'one'} };
 print $defined_pushed;
"
$VAR1 = {
          'one' => [
                     'fee',
                     'fie',
                     'foe',
                     'fum',
                     undef,
                     'oops'
                   ]
        };

5