Mine

#!/usr/bin/perl -w
sub genphonenumber() {
    $number = "+358 ";
    @nam = ( '40', '41', '44', '45', '50', '9', '3', '4', '5', '6', '7', '8', '19', '2' );
    $number .= $nam[int rand($#nam)];
    $number .= " ";

    for ($i = 0; $i <= 3; $i++) {
        $number .= int rand(10);
    }
    $number .= " ";

    for ($i = 0; $i <= 4; $i++) {
        $number .= int rand(10);
    }
    $number .= "\n";
    return $number;
}

print genphonenumber() for(1..100);