#!/usr/bin/perl -w
use strict;
use warnings;
my $a = 'a';
my $b;
my $c = 'c';
print "variablen:"
.$a
.$b
.$c
;
my %hash = (
	a => 'a',
	c => 'c',
);
print "variablen:"
.$hash{a}
.$hash{b}
.$hash{c}
;