#!/opt/perl

use strict;
use warnings;

my @students = ( 
   {
     name          => 'Bob Kowalski',
     home_town     => 'Vero Beach',
     home_state    => 'Florida',
     hobbies       => [ 'ham radio', 'Perl programming', 'running' ],
  },
  {
     name          => 'Kranessa Evans',
     home_town     => 'Dallas',
     home_state    => 'Texas',
     hobbies       => [ 'Perl programming', 'writing', 'polo' ],
  },
);

store_to_file( '/data/students.db', \@students );  # This make-believe easy-peasy function 
                                                   # would be built into Perl.