sub f
{
    my %numbers ;
    foreach ( $q->param )
    {
        /^([0-9]+)/ && $numbers{$1}++ ;
    }
    return keys %numbers;
}