#!/usr/local/bin/perl

use strict;
use warnings;

sub mysub {
    $_[0] +=100 if $_[0] < 2000;
}

my $test=100;
mysub ( $test );

print $test;
# gibt 200 aus!