配列リファレンスのスライス指定なんですが、
えー、、なんて言えばいいのかな？以下のような事出来ますか？

my @arr = (
 [qw(a b c d e)],
 [qw(f g h i j)],
 [qw(k l m n o)],
 [qw(p q r s t)]
);

# abcd
print @{$arr[0]}[0 .. 3];

# hij
print @{$arr[1]}[2 .. 4];

# afkp
print join('', map $arr[$_][0], 0 .. $#arr);

最後の afkp の所で巧くスライス指定したいなと思うのですが、
指定方法がわからないのです。