subroutine(function)_perl

#!/usr/bin/perl

print "Program ini akan mencetak angka 1 sampai 100, Anda dapat menentukan sendiri angka berapa yang tidak akan dicetak.\n\n";

pertanyaan();
my $jawab = jawab();

print "\n";
tampil();

sub pertanyaan {
    print "Masukkan angka yang tidak dicetak : ";
    return;
}

sub jawab {
    my $jawab = <>;
    chomp $jawab;
    return $jawab;
}

sub tampil{
    for (my $var = 1; $var <=100; $var++) {
        if ($var != $jawab) {
            print $var,", ";
        }
    }
}