#! usr/bin/perl
@a = ('j','u','s','t','i','n');
@b = ('a','n','t','h','o','n','y');
@c = ('p','e','t','e','r');
@d = ('l','u','c','k','y');
print "@a[0]@a[1]@a[2]@a[3] ";
print "@b[0]@b[1]@b[4]@b[2]@b[3]";
print "@c[3]@c[4] @c[0]@c[1]@c[4]@d[0] ";
print "@b[3]@b[0]@d[2]@d[3]@c[3]@c[4]\n";