>49
>36を一生懸命よんでまっすたごめんなさい…できました
ところで、>35に付け加える感じなんですが

$tmp01 = "シュウマイ";
$tmp02 = "餃子";
$tmp03 = "食いてぇ〜";
@array = (01,02,03);
$index = rand @array;
my $mem = $array[$index];

これで、$tmp.$memのようにして
print "$tmp.$mem"\n";
$tmp01〜$tmp03の中身（シュウマイとか）を表示させたいんですが
やっぱりうまく行きません……どうしたらいいでしょうか？