Select Code to Download

#! /usr/bin/perl -w
use strict;
...
1: 309
2: 261
3: 245

my %hash;
undef(@hash{qw(shave the modern way)});