Here's where I am at now: I think I am still unsure about how to preserve the ORDER BY once I display the results of the template. Any advice????????

sub displayphone {

    #Retrieve current state of the object
    my $self = shift;

    #Shortcut to return a reference to an array of hash elements  
    my %attr = ( dbi_fetchall_arrayref_attr => {});
    
    #Preparing the template and substitute the values
    my $template = HTML::Template->new(filename => 'displayphone.tmpl'
+);
    $template->param(ROWS => $dbh->selectall_arrayref("SELECT * FROM d
+irectory ORDER BY lastname", \%attr, $value),);

   #Display results
    return $template->output; 

}
[download]