@a = split //, "justin";
@b = split //, "anthony";
@c = split //, "peter";
@d = split //, "lucky";
$" = '';
$\ = "\n";
$, = " ";
print
    "@a[0 .. 3]",
    "@b[0, 1, 4, 2, 3]@c[3, 4]",
    "@c[0, 1, 4]$d[0]",
    "@b[3, 0]@d[2, 3]@c[3, 4]";