#!/usr/bin/perl

use warnings;
use strict;

my $t = <STDIN>;							
my $classmax = clm($t, 49, 99, 199, 299, 500); 

sub clm {
    my $c = shift; # Wenn man shift ohne Argument verwendet, bezieht es sich automatisch auf @_
    my @a = @_;
    if ($#a != 4) { 	   						
        print "Something went wrong.\n";
        exit;
    }
    my $i;
    foreach $i (@a) {						
        if ($c < $i) {				  	
            my @div = shift @a; # Ich hab' keine Ahnung, was das bewirkt (vermutlich bekommt das Array @div das erste Element von @a). Bestimmt aber nicht das, was Du willst.
	} elsif ($c > $i) {
            my $divi = @div; # Damit wird $divi auf die Anzahl der Elemente von @div gesetzt. Wolltest Du das?
            my $re1 = $t / $divi;		
            my $zre = $divi - 1;		
            my $re2 = $re1 * $zre;
        }
        print "Your points are $re2\n";
    }
}