Select Code to Download

my $webapp_usage_statistics = pull_this_data_from_somewhere();
my $johndoe = grep {$_->{username eq "John Doe"}} @{$webapp_usage_stat
+istics->[-7]}
...
    my $others = join(", ", map {$_->{username}} @{$page->{others}});
    print "    as did $others.\n\n";
}