#!/usr/bin/perl

use strict;
use warnings;

my %Daten = (
  test => 33,
);

my $xxx = 'test';

# jetzt wird nach 'test' gesucht
print $xxx, " => ", $Daten{$xxx},"\n";

# und jetzt nach $xxx
print '$xxx => ', $Daten{'$xxx'},"\n";