"5" =~ /(\d)/;
#$x = $1;
select (undef, undef, undef, $1);