sub argify {
    while (my $aref = shift) {
       @$aref = map "/"$_/"", @$aref;
    }
}