Select Code to Download

#!/usr/local/bin/perl

use strict;
...
print '@slice == ['. join(', ', @slice). "]\n";
print "\$multi == '$multi'\n" if defined $multi;
print "\$multi == undef\n" if !defined $multi;

@slice == [1, 2, 12, 19, 26]
$multi == undef