Not really much shorter but...

s/i_// for @info;
s/d_// for @data;
[download]

--
<http://www.dave.org.uk>

"The first rule of Perl club is you do not talk about Perl club."
-- Chip Salzenberg