my ($num) = ...