$VAR1 = {
          'stuhl' => 'wecker',
          'tisch' => 'teppich',
          'bett' => 'bild'
        };

##</code><code>##

use Storable;
do 'file1';
store $VAR1, 'file2';

##</code><code>##

>less file2
"file2" may be a binary file.  See it anyway? y
pst0^D 12345678^D^H^H^H^C^C^@^@^@
^Fwecker^E^@^@^@stuhl
^Dbild^D^@^@^@bett
^Gteppich^E^@^@^@tisch