Maybe vec or unpack can help you (see also perlpacktut for a gentler introduction, but vec() is probably more appropriate).