#!/usr/bin/perl 
    use 5.28.1;
    use strict; 
    use warnings;
    use DBI;

    my $dsn = 'dbi:ODBC:DRIVER={ODBC Driver 18 for SQL Server};TrustServerCertificate=yes;database=xxx;Server=xxx);
    my $dbh = DBI->connect($dsn, xxx, xxx) || die 'Verbindung zur Datenbank nicht möglich';

    my $erg = $dbh->selectrow_hashref('SELECT TOP 1 * FROM [Purchase Line]');
    for my $key (sort keys %$erg){
        say $key.' - '.$erg->{$key};
    }