tie my @p, 'Tie::Array::Packed::Integer';
push @p, $_ for (.....);

tied(@p)->sort;