sub double {
    my $num = $_[0];
    $num =  2*$num;  
    return $num;
}