>>970
ハッシュのスライス使って

@data{@data_list} = split(/<>/);

あたりでどうすか?