#!/usr/bin/perl
use strict;
use warnings;

my %names = &getvariables();

print $names{'$variable1'} . "\n";

sub getvariables($) {
        my $datei = shift || "data.inc";
        open(DATEI, "<$datei") || die "Fehler beim öffnen von $datei: $!";
        my @inhalt = <DATEI>;
        close(DATEI);
        my %names;
        for(@inhalt) {
                my ($name, $value) = split(/\s*?\=\s*?/, $_);
                $names{$name} = substr($value, 1, length($value)-3);

        }
        return %names;
}