nit: There's no such thing as a reference to a list in Perl. Your so-called listrefs are array references.