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

my $user = "usern";
my $pass = "passw";

my $sql_s = "select stamp,state from pridata order by stamp limit 46";

my $dbh = DBI->connect("dbi:mysql:database=db1;",$user,$pass);
my $sth = $dbh->prepare($sql_s);
$sth->execute();

my $res = $sth->fetchall_arrayref();

for my $row( @$res ){
      ${@$row[0]} = @$row[1];
}

$sth->finish();
$dbh->disconnect();
[download]