#!/usr/bin/perl

$i=7;
$res = ' MEINEAUSGABE ### ';
$descr[$i] = 'Der_Router_123';
$oid_speed[$i]=32.000;
$$resultf{$oid_speed[$i]} = '33k'; 
$stat='running';
$in_err_rat=88;
$out_err_rat =3;

append("!!!" . $descr[$i] . ": " . "speed (" . $$resultf{$oid_speed[$i]} .
			"); operational status (" . $stat . 
			"); received/sent packets/error ratio (" . $in_err_rat . "%/" . $out_err_rat . "%)");
			
print "Status is OK:" . $res;

sub append{
	my $appendstring = @_[0];
	$res= "$res$appendstring";
}