Select Code to Download

@array1 = ('a','b','c');
@array2 = ('a','b');
@array3 = ('a','b','c','d');

#! /usr/bin/perl
use warnings;
...
    print join ', ', map shift @$_ // 'NULL', \@array1, \@array2, \@ar
+ray3;
    print "\n";
}